home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / bmenu21.arc / BMENU2-1.BAS (.txt)
Encoding:
GW-BASIC  |  1987-09-26  |  6.1 KB  |  192 lines
  1. 10  SCREEN 1:KEY OFF:COLOR 9,15:CLS
  2. 15  ON ERROR GOTO 935
  3. 20  KK$="Strike any key to continue"
  4. 25  GOSUB 30:GOTO 45
  5. 30  OPEN "BMENU.001" FOR INPUT AS #1
  6. 35  INPUT #1,A1$,F1$,A2$,F2$,A3$,F3$,A4$,F4$,A5$,F5$,A6$,F6$,A7$,F7$,A8$,F8$,A9$,F9$,A10$,F10$
  7. 40  CLOSE:RETURN
  8. 45  CIRCLE (143,70),90,,,,1/2
  9. 50  LOCATE 7,14:COLOR 9,15:PRINT "CHCK-WARE"
  10. 55  LOCATE 11,14:PRINT "PRESENTS:"
  11. 60  LINE (79,120) - (210,156),,B
  12. 65  LOCATE 17,14:PRINT "BASIC MENU"
  13. 70  LOCATE 19,14:PRINT "Version 2.1"
  14. 75  LOCATE 22,7:PRINT KK$
  15. 80  LET KY$=INKEY$:IF KY$="" THEN 80
  16. 85  SCREEN 1:COLOR 1,15:CLS
  17. 90  LINE (40,10) - (235,180),,B
  18. 95  LINE (43,13) - (232,176),,B
  19. 100  LOCATE 3,14:PRINT "MAIN MENU"
  20. 105  LOCATE 6,11:PRINT "[V] VIEW FILES"
  21. 110  LOCATE 8,11:PRINT "[S] SELECT FILES"
  22. 115  LOCATE 10,11:PRINT "[A] ADD FILES"
  23. 120  LOCATE 12,11:PRINT "[E] ERASE FILES"
  24. 125  LOCATE 14,11:PRINT "[H] HELP"
  25. 130  LOCATE 16,11:PRINT "[D] EXIT TO DOS"
  26. 135  LOCATE 18,11:PRINT "[Q] QUIT TO BASIC"
  27. 140  LOCATE 21,13:INPUT "SELECTION:",B$
  28. 145  IF B$="V" OR B$="v" THEN 205 ELSE IF B$="S" OR B$="s" THEN 550
  29. 150  IF B$="E" OR B$="e" THEN 305 ELSE IF B$="A" OR B$="a" THEN 695
  30. 155  IF B$="H" OR B$="h" THEN 370 ELSE IF B$="D" OR B$="d" THEN 165
  31. 160  IF B$="Q" OR B$="q" THEN 185 ELSE 140
  32. 165  CLS:LOCATE 14,1:PRINT "ARE YOU SURE YOU"
  33. 167  LOCATE 15,1:INPUT "WANT TO GO TO DOS? (Y/N) ",C$
  34. 170  IF C$="Y" OR C$="y" THEN 175 ELSE IF C$="N" OR C$="n" THEN 180 ELSE 165
  35. 175  COLOR 0,7:CLS:SYSTEM
  36. 180  GOTO 85
  37. 185  CLS:LOCATE 14,1:PRINT "ARE YOU SURE YOU"
  38. 190  LOCATE 15,1:INPUT "WANT TO QUIT TO BASIC? (Y/N) ",D$
  39. 195  IF D$="Y" OR D$="y" THEN 200 ELSE IF D$="N" OR D$="n" THEN 85 ELSE 190
  40. 200  COLOR 0,7:SCREEN 0:CLS:END
  41. 205  COLOR 5,15:CLS
  42. 210  LINE (50,20) - (225,160),,B
  43. 215  LINE (46,17) - (229,163),,B
  44. 220  LOCATE 5,10:PRINT "A) ALL FILES"
  45. 225  LOCATE 7,10:PRINT "B) ALL .BAS FILES"
  46. 230  LOCATE 9,10:PRINT "E) ALL .EXE FILES"
  47. 235  LOCATE 11,10:PRINT "C) ALL .COM FILES"
  48. 240  LOCATE 13,10:PRINT "M) MAIN MENU"
  49. 245  LOCATE 16,8:INPUT "ENTER YOUR CHOICE:",V$
  50. 250  IF V$="B" OR V$="b" THEN 265 ELSE IF V$="A" OR V$="a" THEN 285
  51. 255  IF V$="C" OR V$="c" THEN 350 ELSE IF V$="E" OR V$="e" THEN 330
  52. 260  IF V$="M" OR V$="m" THEN 85 ELSE 245
  53. 265  CLS:LOCATE 1,30:FILES"*.BAS"
  54. 270  LOCATE 20,7:PRINT KK$
  55. 275  LET KY$=INKEY$:IF KY$="" THEN 275
  56. 280  GOTO 85
  57. 285  CLS:LOCATE 1,10:FILES
  58. 290  LOCATE 24,7:PRINT KK$
  59. 295  LET KY$=INKEY$:IF KY$="" THEN 295
  60. 300  GOTO 85
  61. 305  COLOR 4,15:CLS
  62. 310  LOCATE 5,10:INPUT "FULL NAME OF FILE TO BE DELETED:",DE$
  63. 315  LOCATE 15,10:PRINT "ERASING ";DE$;"...":KILL DE$
  64. 320  LOCATE 20,9:INPUT "ERASE ANOTHER? (Y/N):",K$
  65. 325  IF K$="Y" OR K$="y" THEN 305 ELSE IF K$="N" OR K$="n" THEN 100770
  66. 330  CLS:LOCATE 2,10:FILES"*.EXE"
  67. 335  LOCATE 23,7:PRINT KK$
  68. 340  LET KY$=INKEY$:IF KY$="" THEN 340
  69. 345  GOTO 85
  70. 350  CLS:LOCATE 2,10:FILES"*.COM"
  71. 355  LOCATE 23,7:PRINT KK$
  72. 360  LET KY$=INKEY$:IF KY$="" THEN 360
  73. 365  GOTO 85
  74. 370  CLS:LINE (300,5) - (10,190),,B
  75. 375  LOCATE 2,15:PRINT "H E L P        (PAGE 1)"
  76. 380  LOCATE 5,4:PRINT "VIEW FILES GIVES YOU A DISK "
  77. 385  LOCATE 6,4:PRINT "DIRECTORY. YOU CAN VIEW CERTAIN"
  78. 390  LOCATE 7,4:PRINT "FILES ENDING AN: .BAS, .COM, .EXE."
  79. 395  LOCATE 8,4:PRINT "OR YOU CAN VIEW THE WHOLE DISK..."
  80. 400  LOCATE 10,4:PRINT "ERASE FILES ALOWS YOU TO ERASE"
  81. 405  LOCATE 11,4:PRINT "A FILE OFF YOUR DISK..."
  82. 410  LOCATE 13,4:PRINT "SELECT FILES IS THE MENU PART,"
  83. 415  LOCATE 14,4:PRINT "YOU CAN CHOOSE A FILE THAT YOU"
  84. 420  LOCATE 15,4:PRINT "ADDED AND THE PROGRAM WILL RUN"
  85. 425  LOCATE 16,4:PRINT "IT WILL ONLY RUN BASIC FILES..."
  86. 430  LOCATE 18,4:PRINT "EXIT TO DOS DOES JUST WHAT IT"
  87. 435  LOCATE 19,4:PRINT "SAYS, IT WILL GO TO DOS."
  88. 440  LOCATE 21,4:PRINT "QUIT TO BASIC RETURNS TO BASIC.."
  89. 445  LOCATE 23,6:PRINT KK$
  90. 450  LET KY$=INKEY$:IF KY$="" THEN 450
  91. 455  GOTO 460
  92. 460  CLS:LINE (300,5) - (10,190),,B
  93. 465  LOCATE 2,15:PRINT "H E L P       (PAGE 2)"
  94. 470  LOCATE 5,4:PRINT "ADD FILES LETS YOU CHANGE THE "
  95. 475  LOCATE 6,4:PRINT "SELECT CHOICE DIRECTORY, YOU"
  96. 480  LOCATE 7,4:PRINT "CAN CHANGE FILES TO SELECT FROM."
  97. 485  LOCATE 10,4:PRINT "IF YOU LIKE THIS MENU PROGRAM"
  98. 490  LOCATE 11,4:PRINT "PLEASE SEND DONATIONS TO:"
  99. 495  LOCATE 12,4:PRINT "CHCK-WARE, 3320 MN. LANE"
  100. 500  LOCATE 13,4:PRINT "PLYMOUTH MN. 55441"
  101. 505  LOCATE 15,4:PRINT "THIS MENU PROGRAM IS PUBLIC DOMAIN"
  102. 510  LOCATE 16,4:PRINT "BUT, CHANGING THE NAME ON THIS"
  103. 515  LOCATE 17,4:PRINT "IS ILLEGAL. SELLING THIS IS ALSO"
  104. 520  LOCATE 18,4:PRINT "ILLEGAL.  SPEACIAL THANKS TO "
  105. 525  LOCATE 19,4:PRINT "SKUNK-WORKS WHO HELPED EDITING..."
  106. 530  LOCATE 20,4:PRINT "ENJOY BASIC MENU!!"
  107. 535  LOCATE 23,6:PRINT KK$
  108. 540  LET KY$=INKEY$:IF KY$="" THEN 540
  109. 545  GOTO 85
  110. 550  CLS:LINE (300,5)-(10,190),,B
  111. 555  LINE (295,5)-(15,190),,B
  112. 560  '
  113. 565  LOCATE 4,3:PRINT 1,A1$
  114. 570  LOCATE 6,3:PRINT 2,A2$
  115. 575  LOCATE 8,3:PRINT 3,A3$
  116. 580  LOCATE 10,3:PRINT 4,A4$
  117. 585  LOCATE 12,3:PRINT 5,A5$
  118. 590  LOCATE 14,3:PRINT 6,A6$
  119. 595  LOCATE 16,3:PRINT 7,A7$
  120. 600  LOCATE 18,3:PRINT 8,A8$
  121. 605  LOCATE 20,3:PRINT 9,A9$
  122. 610  LOCATE 22,3:PRINT 10,A10$
  123. 615  LOCATE 23,12:PRINT "[M] FOR MAIN MENU..."
  124. 620  LOCATE 2,14:INPUT "ENTER CHOICE:",W$
  125. 625  IF W$="1" THEN 645 ELSE IF W$="2" THEN 650 ELSE IF W$="3" THEN 655
  126. 630  IF W$="4" THEN 660 ELSE IF W$="5" THEN 665 ELSE IF W$="6" THEN 670 ELSE IF W$="7" THEN 675 ELSE IF W$="8" THEN 680
  127. 635  IF W$="9" THEN 685 ELSE IF W$="10"THEN 690 ELSE IF W$="M" OR W$="m" THEN 85 ELSE 620
  128. 640  GOTO 730
  129. 645  CLS:LOCATE 10,12:PRINT "LOADING ";F1$;"...":LOAD F1$,R
  130. 650  CLS:LOCATE 10,12:PRINT "LOADING ";F2$;"...":LOAD F2$,R
  131. 655  CLS:LOCATE 10,12:PRINT "LOADING ";F3$;"...":LOAD F3$,R
  132. 660  CLS:LOCATE 10,12:PRINT "LOADING ";F4$;"...":LOAD F4$,R
  133. 665  CLS:LOCATE 10,12:PRINT "LOADING ";F5$;"...":LOAD F5$,R
  134. 670  CLS:LOCATE 10,12:PRINT "LOADING ";F6$;"...":LOAD F6$,R
  135. 675  CLS:LOCATE 10,12:PRINT "LOADING ";F7$;"...":LOAD F7$,R
  136. 680  CLS:LOCATE 10,12:PRINT "LOADING ";F8$;"...":LOAD F8$,R
  137. 685  CLS:LOCATE 10,12:PRINT "LOADING ";F9$;"...":LOAD F9$,R
  138. 690  CLS:LOCATE 10,12:PRINT "LOADING ";F10$;"...":LOAD F10$,R
  139. 695  CLS:LOCATE 4,3:PRINT 1,A1$
  140. 700  LOCATE 6,3:PRINT 2,A2$
  141. 705  LOCATE 8,3:PRINT 3,A3$
  142. 710  LOCATE 10,3:PRINT 4,A4$
  143. 715  LOCATE 12,3:PRINT 5,A5$
  144. 720  LOCATE 14,3:PRINT 6,A6$
  145. 725  LOCATE 16,3:PRINT 7,A7$
  146. 730  LOCATE 18,3:PRINT 8,A8$
  147. 735  LOCATE 20,3:PRINT 9,A9$
  148. 740  LOCATE 22,3:PRINT 10,A10$
  149. 745  LOCATE 24,2:INPUT "INPUT # TO CHANGE OR `Q' TO QUIT: ",JP$
  150. 750  IF JP$="1" THEN 765 ELSE IF JP$="2" THEN 780 ELSE IF JP$="3" THEN 795 ELSE IF JP$="4" THEN 810 ELSE IF JP$="5" THEN 825 ELSE IF JP$="6" THEN 840 ELSE IF JP$="7" THEN 855 ELSE IF JP$="8" THEN 870
  151. 755  IF JP$="9" THEN 885 ELSE IF JP$="10" THEN 900 ELSE IF JP$="Q" OR JP$="q" THEN 915 ELSE 745
  152. 760  CLOSE
  153. 765  CLS:LOCATE 12,3:INPUT "TITLE FOR # 1:",A1$
  154. 770  LOCATE 14,3:INPUT "FILENAME FOR # 1:",F1$
  155. 775  GOTO 695
  156. 780  CLS:LOCATE 12,3:INPUT "TITLE FOR # 2:",A2$
  157. 785  LOCATE 14,3:INPUT "FILENAME FOR # 2:",F2$
  158. 790  GOTO 695
  159. 795  CLS:LOCATE 12,3:INPUT "TITLE FOR # 3:",A3$
  160. 800  LOCATE 14,3:INPUT "FILENAME FOR # 3:",F3$
  161. 805  GOTO 695
  162. 810  CLS:LOCATE 12,3:INPUT "TITLE FOR # 4:",A4$
  163. 815  LOCATE 14,3:INPUT "FILENAME FOR # 4:",F4$
  164. 820  GOTO 695
  165. 825  CLS:LOCATE 12,3:INPUT "TITLE FOR # 5:",A5$
  166. 830  LOCATE 14,3:INPUT "FILENAME FOR # 5:",F5$
  167. 835  GOTO 695
  168. 840  CLS:LOCATE 12,3:INPUT "TITLE FOR # 6:",A6$
  169. 845  LOCATE 14,3:INPUT "FILENAME FOR # 6:",F6$
  170. 850  GOTO 695
  171. 855  CLS:LOCATE 12,3:INPUT "TITLE FOR # 7:",A7$
  172. 860  LOCATE 14,3:INPUT "FILENAME FOR # 7:",F7$
  173. 865  GOTO 695
  174. 870  CLS:LOCATE 12,3:INPUT "TITLE FOR # 8:",A8$
  175. 875  LOCATE 14,3:INPUT "FILENAME FOR # 8:",F8$
  176. 880  GOTO 695
  177. 885  CLS:LOCATE 12,3:INPUT "TITLE FOR # 9:",A9$
  178. 890  LOCATE 14,3:INPUT "FILENAME FOR # 9:",F9$
  179. 895  GOTO 695
  180. 900  CLS:LOCATE 12,3:INPUT "TITLE FOR # 10:",A10$
  181. 905  LOCATE 14,3:INPUT "FILENAME FOR # 10:",F10$
  182. 910  GOTO 695
  183. 915  GOSUB 920:GOTO 85
  184. 920  OPEN "BMENU.001" FOR OUTPUT AS #1
  185. 925  WRITE #1,A1$,F1$,A2$,F2$,A3$,F3$,A4$,F4$,A5$,F5$,A6$,F6$,A7$,F7$,A8$,F8$,A9$,F9$,A10$,F10$
  186. 930  CLOSE:RETURN
  187. 935  CLS:LOCATE 12,10:PRINT "CANNOT FIND THE FILE"
  188. 940  LOCATE 14,11:PRINT "THAT YOU SELECTED."
  189. 945  LOCATE 23,7:PRINT KK$
  190. 950  LET KY$=INKEY$:IF KY$="" THEN 950
  191. 955  CLS:RESUME 85
  192.